Sub 통합()

    Dim 경로 As String
    Dim 파일 As String
    
    경로 = "C:\예제\Part 03\Chapter 09\샘플\"
    파일 = "분당점.xlsx"

    Workbooks.Open Filename:=경로 & 파일
    Range("A2:H13").Copy
    ThisWorkbook.Activate
    Range("F6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Workbooks(파일).Close SaveChanges:=False
    
End Sub